home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / patch / bbase13a_pch / update_ita < prev    next >
Text File  |  1997-12-27  |  11KB  |  394 lines
  1. ;   -----------------------------------
  2. ;   Update BancaBase 1.3 to 1.3a script
  3. ;   -----------------------------------
  4. ;   Description:
  5. ;
  6. ;   Commodore Installer Script for patch
  7. ;   BancaBase V 1.3 to 1.3a
  8. ;   $VER: 1.01 (c) 1997 by Stefano Dardari
  9.  
  10. ; some useful variables
  11.     (set 
  12.         newline         "\n"
  13.         #prg            "BancaBase"
  14.         #prgnew         "BancaBase.new"
  15.         #prgold         "BancaBase.old"
  16.         #bbprogname     "BancaBase13pch.lha"
  17.         #bb3-path       "BancaBase/"
  18.         #catalogsname   "catalogs/"
  19.         #docsname       "docs/"
  20.         #examplename    "examples.lha"
  21.         #patternsname     "Patterns.lha"
  22.         #soundsname     "Sounds.lha"
  23.         #registername   "Register.lha"
  24.         #bb3-dest       "SYS:"
  25.         #bb3-key        "BBase.key"
  26.         #bb3-prefs      "BancaBase.prefs"
  27.         #bb3-readme     "ReadMe.doc"
  28.         #bb3-readme-ita "Leggimi.doc"
  29.         #bb3-update     "Aggiornamenti.doc"
  30.         #bb3-icon-MWB   "Icons/MagicWB/"
  31.         #bb3-icon-NI    "Icons/NewIcon/"
  32.         #bb3-icon-STD   "Icons/Standard/"
  33.         #STDTYPE        0
  34.         #NITYPE         1
  35.         #MWBTYPE        2
  36.         #iconpattern    "#?.info"
  37.         #bb3-lang-eng   "english"
  38.         #bb3-lang-deu   "deutsch"
  39.         #bb3-lang-ita   "italiano"
  40.         #bb3-lang-fra   "français"
  41.         #bb3-lang-rus   "russian"
  42.         #ENG            0
  43.         #DEU            1
  44.         #ITA            2
  45.         #FRA            3
  46.         #RUS            4
  47.         #BB3size        337984
  48.     )
  49.  
  50. ; some strings
  51. (set #omp (cat "\nUn momento prego..." newline))
  52.  
  53. (set #installtext (cat "Benvenuti nello script di AGGIORNAMENTO di BancaBase.\n\nBancaBase3 V 1.3a (C) 1997/98 by Stefano Dardari\nAll rights reserved\n\nUPDATE script V 1.1\n"))
  54. (set #BB3dest-prompt "Prego selezionare la directory dov'è attualmente installata la versione 1.3 di BancaBase.\n(Vedere l'Aiuto per ulteriori dettagli)")
  55. (set #BB3dest-help (cat "Si deve indicare il percorso completo nel quale è stato installato il programma BancaBase.\n\nNOTA : per applicare questo aggiornamento è necessario disporre della versione 1.3 REGISTRATA di BancaBase, installata su HardDisk."))
  56. (set #BB3lang-prompt "Selezionare la lingua (tra quelle disponibili) che il programma dovrà utilizzare per i menù ed i gadgets.")
  57. (set #BB3lang-help "Selezionando una delle lingue elencate, vengono copiati i relativi file catalogs che il programma caricherà in modo autonomo. Se si desidera lasciare il programma in INLGESE non è necessario alcun catalogo esterno in quanto costruito all'interno del programma stesso")
  58. (set #BB3docs-prompt "Selezionare la lingua (tra quelle disponibili) dei file di documentazione che si desidera installare.")
  59. (set #BB3docs-help "E' possibile selezionare la lingua (tra quelle elencate) di file documentazione del programma.")
  60. (set #BB3end (cat "Aggiornamento completato. Leggere il file readme prima di iniziare."))
  61. (set #BB3icon-prompt "\nQuale tipo di ICONE si desidera installare tra quelle disponibili ?")
  62. (set #BB3icon-help "Selezionare il tipo di Icona desiderata per il programma e tutti gli accessori forniti. Se ad esempio nel vostro WorkBench utilizzate normalmente le icone stile Magic WorkBench, selezionate MagicWB. Lo stesso vale per gli altri tipi di icona.")
  63. (set #coping-icon-prompt "Attendere prego ... installo le icone selezionate.")
  64. (set #msgpchfailed "ATTENZIONE!!!\n\nIl Patch non è stato applicato a causa di un errore.\n\nAssicurarsi di applicare il patch esclusivamente alla versione 1.3 REGISTRATA di BancaBase, con qualsiasi altra versione il patch non può essere applicato.\nSe avete una versione 1.3 registrata e non riuscite ad applicare questo patch contattate l'autore.")
  65.  
  66. (welcome #installtext)
  67.  
  68. (procedure set_icon
  69.    (set #def-icon
  70.       (askchoice
  71.          (prompt #BB3icon-prompt)
  72.          (help   #bb3icon-help)
  73.          (choices "Icone Standard" "Icone NewIcon" "Icone MagicWB")
  74.          (default 0)
  75.       )
  76.    )
  77. )
  78.  
  79. (procedure set_lang_catalogs
  80.    (set #def-lang
  81.       (askchoice
  82.          (prompt #BB3lang-prompt)
  83.          (help   #bb3lang-help)
  84.          (choices "English (built in)" "Deutsch" "Italiano" "Français" "Russian")
  85.          (default #ITA)
  86.       )
  87.    )
  88. )
  89.  
  90. (procedure set_lang_docs
  91.    (if (> #def-lang #ITA)
  92.         (set #def-lang #ITA)
  93.    )
  94.    (set #def-lang
  95.       (askchoice
  96.          (prompt #BB3docs-prompt)
  97.          (help   #bb3docs-help)
  98.          (choices "English" "Deutsch" "Italiano")
  99.          (default #def-lang)
  100.       )
  101.    )
  102. )
  103.  
  104. (procedure set_dir
  105.    (set #bb3-dest
  106.       (askdir
  107.          (prompt #BB3dest-prompt)
  108.          (help #BB3dest-help)
  109.          (default #bb3-dest)
  110.          (newpath)
  111.       )
  112.    )
  113. )
  114.  
  115. (set_dir)
  116. (set #dest-path #bb3-dest)
  117. (set @default-dest #dest-path)
  118.  
  119.  
  120. (if (= 0 (exists #dest-path (noreq)))
  121.    (
  122.       (set #file-exist (cat "Spiacente ma la directory " #dest-path " non esiste.\n\nSelezionare la directory destinazione contenente la versione 1.3 di BancaBase.\n"))
  123.       (message #file-exist)
  124.       (set_dir)
  125.       (set #dest-path #bb3-dest)
  126.       (set @default-dest #dest-path)
  127.    )
  128. )
  129.  
  130. (complete 10)
  131.  
  132. (set #dst-path #dest-path)
  133. (set #dst (tackon #dest-path #prg))
  134.  
  135. (if (exists #dst)
  136.     (
  137.     (set size (getsize #dst))
  138.     (if (= size #BB3size)
  139.        (message ("\n\nTrovato %s (%ld bytes)\n\nIl patch è applicabile." #dst size))
  140.        )
  141.     )
  142. )
  143.  
  144. (if (not(= size #BB3size))
  145.     (abort #msgpchfailed)
  146.     )
  147.  
  148. (working #omp (cat "\n\nScompatto il file di patch ...\n" #dest-path))
  149.  
  150. (run ("lha -x x "#bbprogname" "#dest-path))
  151.  
  152. (complete 20)
  153.  
  154. (working #omp "\n\n\nEseguo l'aggiornamento del software ...\nattendere prego ...")
  155.  
  156. (set #pchcommand (cat "spatch -o" (tackon #dest-path #prgnew) " " #dst))
  157. ; (message #pchcommand)
  158.  
  159. (set a (run #pchcommand))
  160. ; (message ("\nIl patch ritorna :%ld" a))
  161.  
  162. (if (not(= a 0))
  163.     (abort #msgpchfailed)
  164.     )
  165.  
  166. (delete (tackon #dest-path #prg))
  167. (rename (tackon #dest-path #prgnew) (tackon #dest-path #prg))
  168.  
  169. (complete 30)
  170. (set_lang_catalogs)
  171. (if (= #def-lang #ENG)
  172.     (set #lang #bb3-lang-eng)
  173.     )
  174. (if (= #def-lang #DEU)
  175.     (set #lang #bb3-lang-deu)
  176.     )
  177. (if (= #def-lang #ITA)
  178.     (set #lang #bb3-lang-ita)
  179.     )
  180. (if (= #def-lang #FRA)
  181.     (set #lang #bb3-lang-fra)
  182.     )
  183. (if (= #def-lang #RUS)
  184.     (set #lang #bb3-lang-rus)
  185.     )
  186.  
  187. (set #src-path (tackon "Catalogs" #lang))
  188. (set #dst-path (tackon #dst-path #catalogsname))
  189. (set #dst-path (tackon #dst-path #lang))
  190.  
  191. ;(message (cat "Sorgente " #src-path))
  192. ;(message (cat "Destinazione " #dst-path))
  193.  
  194. (if (exists #src-path (noreq))
  195.        (
  196.           (if (not(exists #dst-path))
  197.             (
  198.             (makedir #dst-path (infos))
  199.             )
  200.           )
  201.           (working #omp "Copio i cataloghi selezionati.")
  202.           (copyfiles
  203.               (source #src-path)
  204.                (dest #dst-path)
  205.             (files)
  206.             (all)
  207.           )
  208.           (if (exists (cat #catalogsname "BancaBase.cd"))
  209.              (copyfiles
  210.                   (source (cat #catalogsname "BancaBase.cd"))
  211.                 (dest #dst-path)
  212.                 (files)
  213.               )
  214.           )        
  215.           (if (exists (cat #catalogsname "SDBase.cd"))
  216.              (copyfiles
  217.                 (source (cat #catalogsname "SDBase.cd"))
  218.                 (dest #dst-path)
  219.                 (files)
  220.              )
  221.           )
  222.  
  223.        )
  224. )
  225.  
  226. (complete 40)
  227.  
  228. (set_lang_docs)
  229. (if (= #def-lang #ENG)
  230.     (set #lang #bb3-lang-eng)
  231.     )
  232. (if (= #def-lang #DEU)
  233.     (set #lang #bb3-lang-deu)
  234.     )
  235. (if (= #def-lang #ITA)
  236.     (set #lang #bb3-lang-ita)
  237.     )
  238.  
  239. (set #src-path (tackon "Docs" #lang))
  240. (set #dst-path (tackon #dest-path #docsname))
  241.  
  242. (if (exists #src-path (noreq))
  243.        (
  244.           (if (not (exists #dst-path))
  245.             (
  246.               (makedir #dst-path (infos))
  247.             )
  248.           )
  249.           (working #omp "Copio i files di documentazione.")
  250.           (copyfiles
  251.               (source #src-path)
  252.                (dest #dst-path)
  253.             (files)
  254.             (all)
  255.           )
  256.  
  257.        )
  258. )
  259.  
  260.  
  261. (complete 50)
  262. (set #dest-path @default-dest)
  263.  
  264. (if (exists #registername (noreq))
  265.        (
  266.           (delete (tackon #dest-path "Register")
  267.               (all)
  268.               (infos)
  269.           )
  270.           (makedir (tackon #dest-path "Register"))
  271.           (working #omp "Scompatto e copio i files documentazione per la registrazione.")
  272.           (run "lha -x x "#registername" "(cat #dest-path "/"))
  273.        )
  274. )
  275.  
  276. (if (exists #bb3-readme (noreq))
  277.     (copyfiles
  278.         (prompt #omp "Copio i file di informazioni.")
  279.         (source #bb3-readme)
  280.         (dest #dest-path)
  281.         (files)
  282.     )
  283. )
  284.  
  285. (if (exists #bb3-readme-ita (noreq))
  286.     (copyfiles
  287.         (prompt #omp "Copio i file di informazioni in italiano.")
  288.         (source #bb3-readme-ita)
  289.         (dest #dest-path)
  290.         (files)
  291.     )
  292. )
  293.  
  294. (if (exists #bb3-update (noreq))
  295.     (copyfiles
  296.         (prompt #omp "Copio i file di aggiornamento in italiano.")
  297.         (source #bb3-update)
  298.         (dest #dest-path)
  299.         (files)
  300.     )
  301. )
  302.  
  303. (complete 60)
  304. (if (exists #patternsname (noreq))
  305.    (
  306.       (if (askbool (prompt #BB3patt-prompt) (help #BB3patt-help) (default 1))
  307.           (
  308.              (working #omp "Scompatto e copio gli sfondi (patterns).")
  309.              (run "lha -x x "#patternsname" "(cat #dest-path "/"))
  310.           )
  311.       )
  312.    )
  313. )
  314.  
  315.  
  316. (complete 70)
  317.  
  318. (set_icon)
  319. (if (= #def-icon #STDTYPE)
  320.     (set #src-icon #bb3-icon-STD)
  321.     )
  322. (if (= #def-icon #NITYPE)
  323.     (set #src-icon #bb3-icon-NI)
  324.     )
  325. (if (= #def-icon #MWBTYPE)
  326.     (set #src-icon #bb3-icon-MWB)
  327.     )
  328.  
  329. (copyfiles
  330.    (prompt #coping-icon-prompt)
  331.    (source #src-icon)
  332.    (dest  #dest-path)
  333.    (pattern #iconpattern)
  334.    (noposition)
  335. )
  336.  
  337. (set #src-path (tackon #src-icon "Docs"))
  338. (set #dst-path (tackon #dest-path "Docs"))
  339.  
  340.  
  341. (copyfiles
  342.    (prompt #coping-icon-prompt)
  343.    (source #src-path)
  344.    (dest  #dst-path)
  345.    (all)
  346.    (noposition)
  347. )
  348.  
  349. (set #src-path (tackon #src-icon "Register"))
  350. (set #dst-path (tackon #dest-path "Register"))
  351.  
  352. (copyfiles
  353.    (prompt #coping-icon-prompt)
  354.    (source #src-path)
  355.    (dest  #dst-path)
  356.    (all)
  357.    (noposition)
  358. )
  359.  
  360. (complete 80)
  361.  
  362. (if (exists #soundsname (noreq))
  363.        (
  364.           (working #omp "Scompatto e copio i files sonori.")
  365.           (run "lha -x x "#soundsname" "(cat #dest-path "/"))
  366.        )
  367. )
  368.  
  369.  
  370. (complete 90)
  371.  
  372. (if (exists #bb3-prefs (noreq))
  373.     (copyfiles
  374.         (prompt #omp "Copio il file preferenze.")
  375.         (source #bb3-prefs)
  376.         (dest #dest-path)
  377.         (files)
  378.     )
  379. )
  380.  
  381.  
  382. (complete 100)
  383.  
  384. ; The last message
  385. (set end_text (cat "\nSpero che BancaBase ti piaccia!\n"
  386.               "Non esitare a mandarmi commenti, suggerimenti e bugreports.\n\n"
  387.               "Le registrazioni sono BENVENUTE !!! :))"))
  388.  
  389. ; the end
  390. (set @default-dest #dest-path)
  391.     (exit end_text)
  392. ;EOF
  393.  
  394.